
Set fso = CreateObject("Scripting.FileSystemObject")

Set folder = fso.GetFolder("C:\Users\kaiteo\Desktop\test")

Set files = folder.Files

While True
	For each folderIdx in files

		If folderIdx.Type = "TORRENT File" Then

			fso.MoveFile folderIdx.Path, "C:\Users\kaiteo\Desktop\test2\" & folderIdx.Name

		End If
	Next

Wend